args <- commandArgs(TRUE)
setwd(args[1])
args[2]
library(genefilter, lib.loc=args[2])
library(gcrma, lib.loc=args[2])
library(Biobase, lib.loc=args[2])
library(preprocessCore, lib.loc=args[2])
library(MASS, lib.loc=args[2])
library(affy, lib.loc=args[2])
library(simpleaffy, lib.loc=args[2])
library(frma, lib.loc=args[2])
library(hgu133plus2frmavecs, lib.loc=args[2])
